home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / fapx / fapxview.plp < prev    next >
Text File  |  1993-07-08  |  30KB  |  1,017 lines
  1. /*    指定ﾃﾞｨﾚｸﾄﾘのｻﾌﾞﾃﾞｨﾚｸﾄﾘ名を返す    */
  2. %subdir    {
  3.     [dir,sdir]
  4.     case(@nochar(dir)==3,{Yes},{im(dir|sdir)},{No},{im(dir|{\}|sdir)});
  5.     };
  6.  
  7. /*    ﾛｸﾞ参照ﾒｲﾝ処理    */
  8. %ViewLOG{
  9.     [logdir,memono]
  10.     fn:=@tail(logdir,{\});CloseAllMemo;
  11.     loop    ({
  12.         dispoff(!DEBUG);command({dir }|logdir|{>}|TEMP2|{_mopdir.tmp});
  13.         dispoff({No});
  14.         %lineno @noline(@read(TEMP2|{_mopdir.tmp}));
  15.         case((@nochar(logdir)!=3&&lineno>9)||
  16.             (@nochar(logdir)==3&&lineno>7),{Yes},Viewlog1,
  17.             {No},{display(logdir|{ は空です\n});im({No})});
  18.         });
  19.     /* ﾛｸﾞ参照に使用したﾒﾓの削除処理 */
  20.     loop({case(@mcheck>=memono,{Yes},{mclose(3)});im(@mcheck>=memono)});
  21.     CloseAllMemo;
  22.     loop    ({
  23.         case(@mlast>=memono,
  24.             {Yes},{case(@mcheck!=@mlast,{Yes},{mopen(@mlast)});
  25.                 mclose(3);im({Yes})},
  26.             {No},{im({No})});
  27.         });
  28.     setcdir(CDIR);
  29.     };
  30.  
  31. /* 1ﾛｸﾞﾌｧｲﾙの表示処理 */
  32. %Select1{
  33.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  34.     %line1    @case(LineNo>MemoLine,
  35.             {Yes},{im(@memo(memono,MemoLine,1))},
  36.             {No},{case(LineNo<=0,
  37.                 {Yes},{im(@memo(memono,1,1))},
  38.                 {No},{im(@memo(memono,LineNo,1))})});
  39.     case(@body(line1,{<},{>})={DIR},
  40.         {Yes},{ViewLOG(@subdir(logdir,
  41.             @head(@getchar(line1,1,8),{ })),memono+1)},
  42.         {No},
  43.         {case(@getchar(line1,1,12)={TITLE    TXT},
  44.             {Yes},{Viewtitle(logdir,memono+1)},
  45.             ,
  46.             {case(@getchar(line1,10,3),
  47.                 {LZH},{ViewLZH(@subdir(logdir,@head(@getchar
  48.                     (line1,1,8),{ })),memono+1)},
  49.                 {NAP},{ViewNAP(@subdir(logdir,@head(@getchar
  50.                     (line1,1,8),{ })|{.NAP}),memono)},
  51.                 {NPB},{ViewNAP(@subdir(logdir,@head(@getchar
  52.                     (line1,1,8),{ })|{.NPB}),memono)},
  53.                 ,
  54.                 {
  55.                 case(@getchar(line1,10,3)<>{   },
  56.                     {Yes},
  57.                     {LOGFILE:=@subdir(logdir,
  58.                      @head(@getchar(line1,1,8),{ })|{.}|
  59.                      @head(@getchar(line1,10,3),{ }))},
  60.                     {No},
  61.                     {LOGFILE:=@subdir(logdir,
  62.                          @head(@getchar(line1,1,8),
  63.                             { }))});
  64.                 %m1    memono+1;CloseAllMemo;
  65.                 case(@mlast>=m1,{Yes},{mclear(m1)});
  66.                 mread(LOGFILE,m1);mopen(m1,0,21,639,459,{w});
  67.                 loop    ({
  68.                     footnote({終了削除更新ｺﾒﾝﾄ解石},{b});
  69.                     waitx();
  70.                     case(@xtype,
  71.                         101,{CloseAllMemo;im({No})},
  72.                         201,{CloseAllMemo;im({No})},
  73.                         102,delLOG,202,delLOG,
  74.                         103,updLOG,203,updLOG,
  75.                         104,{COMMENT(m1)},
  76.                         204,{COMMENT(m1)},
  77.                         105,ISH,205,ISH,
  78.                         m1,{COMMENT(m1)},,{im({Yes})});
  79.                     });
  80.                 });
  81.             });
  82.         });
  83.     im({Yes});
  84.     };
  85.  
  86. /* ﾛｸﾞﾌｧｲﾙ名の変更処理 */
  87. %Rename1{
  88.     footnote({ファイル名を変更しています});
  89.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  90.     %line1    @case(LineNo>MemoLine,
  91.             {Yes},{im(@memo(memono,MemoLine,1))},
  92.             {No},{case(LineNo<=0,
  93.                 {Yes},{im(@memo(memono,1,1))},
  94.                 {No},{im(@memo(memono,LineNo,1))})});
  95.     case(@body(line1,{<},{>})={DIR},
  96.         {Yes},{display({ディレクトリ名は変更できません\n})},
  97.         {No},
  98.         {
  99.         var file [64];
  100.         case(@getchar(line1,10,3)<>{   },
  101.             {Yes},{file:=@subdir(logdir,
  102.                 @head(@getchar(line1,1,8),{ })|
  103.                 {.}|@head(@getchar(line1,10,3),{ }))},
  104.             {No},{file:=@subdir(logdir,
  105.                 @head(@getchar(line1,1,8),{ }))});
  106.         SNDMSG({nyuryo_f.snd});
  107.         footnote({新しいファイル名を入力して下さい});
  108.         %file2    @input({新しいファイル名を入力して下さい},,
  109.                 @tail(file,{\}));
  110.         footnote({ファイル名を変更しています});dispoff(!DEBUG);
  111.         command({rename }|file|{ }|file2);
  112.         command({dir }|logdir|{>}|TEMP2|{_mopdir.tmp});
  113.         dispoff({No});CloseAllMemo;
  114.         case(@mlast>=memono,{Yes},{mclear(memono)});
  115.         madd(memono,@read(TEMP2|{_mopdir.tmp},7,lineno-9));
  116.         mopen(memono,0,21,639,459,{r});
  117.         });
  118.     im({Yes});
  119.     };
  120.  
  121. /* ﾛｸﾞﾌｧｲﾙの複写処理 */
  122. %Copy1    {
  123.     footnote({ファイルを複写します});
  124.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  125.     %line1    @case(LineNo>MemoLine,
  126.             {Yes},{im(@memo(memono,MemoLine,1))},
  127.             {No},{case(LineNo<=0,
  128.                 {Yes},{im(@memo(memono,1,1))},
  129.                 {No},{im(@memo(memono,LineNo,1))})});
  130.     case(@body(line1,{<},{>})={DIR},
  131.         {Yes},{display({ディレクトリは複写できません\n})},
  132.         {No},
  133.         {
  134.         case(@getchar(line1,10,3)<>{   },
  135.             {Yes},{LOGFILE:=@subdir(logdir,
  136.                 @head(@getchar(line1,1,8),{ })|
  137.                 {.}|@head(@getchar(line1,10,3),{ }))},
  138.             {No},{LOGFILE:=@subdir(logdir,
  139.                 @head(@getchar(line1,1,8),{ }))});
  140.         SNDMSG({erande_f.snd});
  141.         footnote({複写先のファイルを指定して下さい  複写元=}|LOGFILE);
  142.         %file2    @filesel;
  143.         case(file2={},{No},
  144.             {footnote({ファイルを複写します});dispoff(!DEBUG);
  145.             command({copy }|LOGFILE|{ }|file2);dispoff({No})});
  146.         });
  147.     im({Yes});
  148.     };
  149.  
  150. /* ﾃﾞｨﾚｸﾄﾘ表示と選択処理 */
  151. %Viewlog1{
  152.     CloseAllMemo;case(@mlast>=memono,{Yes},{mclear(memono)});
  153.     case(@nochar(logdir)==3,
  154.         {Yes},{madd(memono,@read(TEMP2|{_mopdir.tmp},5,lineno-7))},
  155.         {No},{madd(memono,@read(TEMP2|{_mopdir.tmp},7,lineno-9))});        mopen(memono,0,21,639,459,{r});SNDMSG({erande_f.snd});
  156.     footnote({終了選択改名複写},{b});waitx(60);
  157.     case(@xtype,
  158.         memono,Select1,
  159.         101,{im({No})},201,{im({No})},102,Select1,202,Select1,
  160.         103,Rename1,203,Rename1,104,Copy1,204,Copy1,
  161.         ,{im({Yes})});
  162.     };
  163.  
  164. /*    圧縮ﾌｧｲﾙの表示処理    */
  165. %ViewLZH{
  166.     [lzhfile,memono]
  167.     fn:=@tail(lzhfile,{\},{.});
  168.     loop    ({
  169.         dispoff(!DEBUG);
  170.         command({LHA }|lzhfile|{>}|TEMP2|{_lzhdir.tmp});
  171.         dispoff({No});
  172.         %lineno @noline(@read(TEMP2|{_lzhdir.tmp}));CloseAllMemo;
  173.         case(lineno>8,{Yes},viewlzh1,
  174.             {No},{display(lzhfile|{ はありません\n});im({No})});
  175.         });
  176.     CloseAllMemo;
  177.     };
  178.  
  179. /* 圧縮1ﾛｸﾞﾌｧｲﾙの表示処理 */
  180. %select1{
  181.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  182.     %line1    @case(LineNo>MemoLine,
  183.             {Yes},{im(@memo(memono,MemoLine,1))},
  184.             {No},{case(LineNo<=0,
  185.                 {Yes},{im(@memo(memono,1,1))},
  186.                 {No},{im(@memo(memono,LineNo,1))})});
  187.     %lzhfile1 @getchar(line1,3,12);setcdir(TEMP);
  188.     dispoff(!DEBUG);
  189.     command({del }|lzhfile1);
  190.     command({LHA E }|lzhfile|{ }|lzhfile1);
  191.     dispoff({No});
  192.     case(@body(lzhfile1,{.}),
  193.         {NAP},{ViewNAP(TEMP2|lzhfile1,memono)},
  194.         {NPB},{ViewNAP(TEMP2|lzhfile1,memono)},
  195.         ,
  196.         {
  197.         %m1    memono+1;
  198.         CloseAllMemo;case(@mlast>=m1,{Yes},{mclear(m1)});
  199.         LOGFILE:=TEMP2|lzhfile1;
  200.         mread(lzhfile1,m1);mopen(m1,0,21,639,459,{w});
  201.         loop    ({
  202.             footnote({終了削除更新ｺﾒﾝﾄ解石},{b});waitx();
  203.             case(@xtype,
  204.                 101,{CloseAllMemo;im({No})},
  205.                 201,{CloseAllMemo;im({No})},
  206.                 102,delLZH,202,delLZH,
  207.                 103,updLZH,203,updLZH,
  208.                 104,{COMMENT(m1)},204,{COMMENT(m1)},
  209.                 105,ISH,205,ISH,
  210.                 m1,{COMMENT(m1)},,{im({Yes})});
  211.             });
  212.         footnote({});setcdir(TEMP);
  213.         dispoff(!DEBUG);command({del }|lzhfile1);dispoff({No});
  214.         im({Yes});
  215.         });
  216.     };
  217.  
  218. /* 圧縮ﾛｸﾞﾌｧｲﾙ名の変更処理 */
  219. %rename1{
  220.     footnote({ファイル名を変更します});
  221.     %LineNo @xlinenum;    %MemoLine @nolmemo(memono);
  222.     %line1    @case(LineNo>MemoLine,
  223.             {Yes},{im(@memo(memono,MemoLine,1))},
  224.             {No},{case(LineNo<=0,
  225.                 {Yes},{im(@memo(memono,1,1))},
  226.                 {No},{im(@memo(memono,LineNo,1))})});
  227.     var file [64];
  228.     file:=@head(@getchar(line1,3,12),{ });
  229.     SNDMSG({nyuryo_f.snd});footnote({新しいファイル名を入力して下さい});
  230.     %file2    @input({新しいファイル名を入力して下さい},,@tail(file,{\}));
  231.     footnote({ファイル名を変更します});
  232.     case(file2<>{}&&file2<>file,{Yes},
  233.         {
  234.         setcdir(TEMP);dispoff(!DEBUG);
  235.         command({LHA E }|lzhfile|{ }|file);
  236.         command({rename }|file|{ }|file2);
  237.         command({LHA A }|lzhfile|{ }|file2);
  238.         command({LHA D }|lzhfile|{ }|file);
  239.         command({del }|file2);
  240.         command({LHA  }|lzhfile|{>}|TEMP2|{_lzhdir.tmp});
  241.         dispoff({No});
  242.         });
  243.     CloseAllMemo;case(@mlast>=memono,{Yes},{mclear(memono)});
  244.     madd(memono,@read(TEMP2|{_lzhdir.tmp},6,lineno-8));
  245.     mopen(memono,0,21,639,459,{r});im({Yes});
  246.     };
  247.  
  248. /* 圧縮ﾛｸﾞﾌｧｲﾙの解凍処理 */
  249. %copy1    {
  250.     footnote({ファイルを解凍します});
  251.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  252.     %line1    @case(LineNo>MemoLine,
  253.             {Yes},{im(@memo(memono,MemoLine,1))},
  254.             {No},{case(LineNo<=0,
  255.                 {Yes},{im(@memo(memono,1,1))},
  256.                 {No},{im(@memo(memono,LineNo,1))})});
  257.     var file [64];
  258.     file:=@head(@getchar(line1,3,12),{ });SNDMSG({erande_f.snd});
  259.     footnote({解凍先のファイルを指定して下さい});
  260.     %file2    @filesel;footnote({ファイルを解凍します});
  261.     case(file2<>{},{Yes},
  262.         {
  263.         dispoff(!DEBUG);command({LHA E }|lzhfile|{ }|file);
  264.         case(file<>file2 && file2<>{*.*} && file2<>{},
  265.             {Yes},{command({ren }|file|{ }|file2)});
  266.         dispoff({No});
  267.         });
  268.     im({Yes});
  269.     };
  270.  
  271. /* 圧縮ﾌｧｲﾙ内容の表示と選択処理 */
  272. %viewlzh1{
  273.     case(@mlast>=memono,{Yes},{mclear(memono)});
  274.     madd(memono,@read(TEMP2|{_lzhdir.tmp},6,lineno-8));
  275.     mopen(memono,0,21,639,459,{r});
  276.     SNDMSG({erande_f.snd});footnote({終了選択改名解凍},{b});
  277.     waitx(60);
  278.     case(@xtype,
  279.         memono,select1,
  280.         101,{im({No})},201,{im({No})},
  281.         102,select1,202,select1,103,rename1,203,rename1,
  282.         104,copy1,204,copy1,,{im({Yes})});
  283.     };
  284.  
  285. /*    ﾒｰﾙﾀｲﾄﾙﾘｽﾄの処理(非圧縮の場合)    */
  286. %Viewtitle{
  287.     [logdir,memono]
  288.     loop    ({
  289.         CloseAllMemo;case(@mlast>=memono,{Yes},{mclear(memono)});
  290.         madd(memono,@read(@subdir(logdir,{TITLE.TXT})));
  291.         mopen(memono,0,21,639,459,{r});
  292.         SNDMSG({erande_f.snd});
  293.         footnote({終了選択改名複写},{b});waitx(60);
  294.         case(@xtype,
  295.             memono,{Select2;im({Yes})},
  296.             101,{im({No})},201,{im({No})},
  297.             102,{Select2;im({Yes})},202,{Select2;im({Yes})},
  298.             103,{Rename2;im({Yes})},203,{Rename2;im({Yes})},
  299.             104,{Copy2;im({Yes})},204,{Copy2;im({Yes})},
  300.             ,{im({Yes})});
  301.         });
  302.     };
  303.  
  304. /* 1ﾛｸﾞﾌｧｲﾙの表示処理(ﾒｰﾙの場合) */
  305. %Select2{
  306.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  307.     %line1    @case(LineNo>MemoLine,
  308.             {Yes},{im(@memo(memono,MemoLine,1))},
  309.             {No},{case(LineNo<=0,
  310.                 {Yes},{im(@memo(memono,1,1))},
  311.                 {No},{im(@memo(memono,LineNo,1))})});
  312.     LOGFILE:=@subdir(logdir,@head(@getchar(line1,1,12),{ }));
  313.     case(@filechk(LOGFILE),{Yes},
  314.         {
  315.         case(@tail(LOGFILE,{.}),
  316.             {LZH},{ViewLZH(LOGFILE,memono+1)},
  317.             {NAP},{ViewNAP(LOGFILE,memono)},
  318.             {NPB},{ViewNAP(LOGFILE,memono)},
  319.             ,
  320.             {
  321.             %m1    memono+1;CloseAllMemo;
  322.             case(@mlast>=m1,{Yes},{mclear(m1)});
  323.             mread(LOGFILE,m1);mopen(m1,0,21,639,459,{w});
  324.             loop    ({
  325.                 footnote({終了削除更新ｺﾒﾝﾄ解石},{b});waitx();
  326.                 case(@xtype,
  327.                     101,{im({No})},201,{im({No})},
  328.                     102,{delLOG;deltitle;im({Yes})},
  329.                     202,{delLOG;deltitle;im({Yes})},
  330.                     103,updLOG,203,updLOG,
  331.                     104,{COMMENT(m1)},204,{COMMENT(m1)},
  332.                     105,ISH,205,ISH,
  333.                     m1,{COMMENT(m1)},,{im({Yes})});
  334.                 });
  335.             });
  336.         },
  337.         {No},{footnote(LOGFILE|{がありません});wait(2)}
  338.         );
  339.     im({Yes});
  340.     };
  341.  
  342. %deltitle{
  343.     CloseAllMemo;mclear(memono);%file3    @subdir(logdir,{TITLE.TXT});
  344.     madd(memono,@read(file3,1,LineNo-1));madd(memono,@read(file3,LineNo+1));
  345.     mwrite(file3,memono);mopen(memono);
  346.     };
  347.  
  348. /* ﾛｸﾞﾌｧｲﾙ名の変更処理 */
  349. %Rename2{
  350.     footnote({ファイル名を変更しています});
  351.     var    LineNo    [3];
  352.     %MemoLine @nolmemo(memono);
  353.     LineNo:=@xlinenum;
  354.     case(LineNo<1,{Yes},{LineNo:=1},
  355.         {No},{case(LineNo>MemoLine,{Yes},{LineNo:=MemoLine})});
  356.     %line1    @memo(memono,LineNo,1);
  357.     var file [64];
  358.     file:=@subdir(logdir,@head(@getchar(line1,1,12),{ }));
  359.     case(@filechk(file),{Yes},
  360.         {
  361.         SNDMSG({nyuryo_f.snd});
  362.         footnote({新しいファイル名を入力して下さい});
  363.         %file2    @input({新しいファイル名を入力して下さい},,
  364.                 @head(@getchar(line1,32,12),{ }));
  365.         footnote({ファイル名を変更しています});
  366.         case(file2={}||file2=@tail(file,{\}),
  367.             {Yes},{CloseAllMemo},
  368.             {No},
  369.             {
  370.             CloseAllMemo;command({rename }|file|{ }|file2);
  371.             case(@filechk(@subdir(logdir,file2)),
  372.                 {No},,
  373.                 {Yes},
  374.                 {
  375.                 mclear(memono);
  376.                 %file3    @subdir(logdir,{TITLE.TXT});
  377.                 case(LineNo<=1,{Yes},{},
  378.                     {No},{madd(memono,
  379.                         @read(file3,1,LineNo-1))});
  380.                 madd(memono,@getchar(file2,1,12));
  381.                 case(@nochar(file2)<12,{Yes},
  382.                     {var n [2];n:=@nochar(file2);
  383.                      loop({madd(memono,{ });
  384.                         n:=n+1;im(n<12)});
  385.                     });
  386.                 madd(memono,@getchar(@read(file3,LineNo,1),13));
  387.                 madd(memono,@read(file3,LineNo+1));
  388.                 mwrite(file3,memono);
  389.                 });
  390.             });
  391.         });
  392.          im({Yes});
  393.     };
  394.  
  395. /* ﾛｸﾞﾌｧｲﾙの複写処理 */
  396. %Copy2    {
  397.     footnote({ファイルを複写します});
  398.     %LineNo @xlinenum;%MemoLine @nolmemo(memono);
  399.     %line1    @case(LineNo>MemoLine,
  400.             {Yes},{im(@memo(memono,MemoLine,1))},
  401.             {No},{case(LineNo<=0,
  402.                 {Yes},{im(@memo(memono,1,1))},
  403.                 {No},{im(@memo(memono,LineNo,1))})});
  404.     LOGFILE:=@subdir(logdir,@head(@getchar(line1,1,12),{ }));
  405.     case(@filechk(LOGFILE),{Yes},
  406.         {
  407.         SNDMSG({erande_f.snd});
  408.         footnote({複写先のﾌｧｲﾙ名を指定して下さい  複写元=}|LOGFILE);
  409.         %file2    @filesel;
  410.         case(file2={},{No},
  411.             {footnote({ファイルを複写します});dispoff(!DEBUG);
  412.             command({copy }|LOGFILE|{ }|file2);dispoff({No})});
  413.         },
  414.         {No},{footnote(LOGFILE|{がありません});wait(2)}
  415.         );
  416.     im({Yes});
  417.     };
  418.  
  419. /* 非圧縮ﾛｸﾞﾌｧｲﾙの削除処理 */
  420. %delLOG    {
  421.     footnote({ログファイルを削除します});
  422.     SNDMSG({kaknin_f.snd});
  423.     select({現在表示しているログファイルを削除します},
  424.         Wtime4,{im({Yes})},
  425.         {  削除する  },
  426.         {CloseAllMemo;
  427.          dispoff(!DEBUG);command({del }|LOGFILE);dispoff({No});
  428.          im({No})},
  429.         { 削除しない },{im({Yes})});
  430.     };
  431.  
  432. /* 非圧縮ﾛｸﾞﾌｧｲﾙの更新処理 */
  433. %updLOG    {
  434.     footnote({ログファイルを更新します});
  435.     SNDMSG({kaknin_f.snd});
  436.     select({現在表示しているログファイルを更新します},
  437.         Wtime4,{im({Yes})},
  438.         {  更新する  },{CloseAllMemo;
  439.                 dispoff(!DEBUG);
  440.                 command({del }|LOGFILE);
  441.                 mwrite(LOGFILE,memono+1);
  442.                 command({dir }|logdir|{>}|TEMP2|{_mopdir.tmp});
  443.                 dispoff({No});
  444.                 im({No})},
  445.         { 更新しない },{im({Yes})});
  446.     };
  447.  
  448. /* 圧縮ﾓｰﾄﾞのﾛｸﾞﾌｧｲﾙを削除する */
  449. %delLZH    {
  450.     footnote({ログファイルを削除します});SNDMSG({kaknin_f.snd});
  451.     select({現在表示しているログファイルを削除します},
  452.         Wtime4,{im({Yes})},
  453.         {  削除する  },{CloseAllMemo;dispoff(!DEBUG);
  454.                 command({LHA D }|lzhfile|{ }|lzhfile1);
  455.                 dispoff({No});im({No})},
  456.         { 削除しない },{im({Yes})});
  457.     };
  458.  
  459. /* 圧縮ﾓｰﾄﾞのﾛｸﾞﾌｧｲﾙを更新する */
  460. %updLZH    {
  461.     footnote({ログファイルを更新します});SNDMSG({kaknin_f.snd});
  462.     select({現在表示しているログファイルを更新します},
  463.         Wtime4,{im({Yes})},
  464.         {  更新する  },
  465.         {
  466.         CloseAllMemo;setcdir(TEMP);
  467.         dispoff(!DEBUG);
  468.         command({del }|lzhfile1);
  469.         mwrite(lzhfile1,memono+1);
  470.         command({LHA U }|lzhfile|{ }|lzhfile1);
  471.         command({LHA }|lzhfile|{>}|TEMP2|{_lzhdir.tmp});
  472.         dispoff({No});im({No})
  473.         },
  474.         { 更新しない },{im({Yes})});
  475.     };
  476.  
  477. /*     表示中のﾌｧｲﾙ内のISHデータを解石する    */
  478. %ISH    {
  479.     %cdir    @getcdir;
  480.     footnote({解石ﾌｧｲﾙを保存するﾃﾞｨﾚｸﾄﾘへ移動して右ｸﾘｯｸしてください});
  481.     filesel;footnote({ＩＳＨデータ解石中});
  482.     command({ISH }|LOGFILE);setcdir(cdir);
  483.     };
  484.  
  485. /*    ｺﾒﾝﾄ作成処理の振り分け    */
  486. %COMMENT{
  487.     [memono]
  488.     %LineNo @xlinenum;
  489.     footnote({少々おまちください});
  490.     %cdir    @getcdir;setcdir(CDIR);
  491.     dispoff(!DEBUG);
  492.     command({del }|TEMP2|{_moptxf.tmp});
  493.     command({txf -a -log -i }|LOGFILE|{ }|LineNo|{ RE:}|
  494.             { > }|TEMP2|{_moptxf.tmp});
  495.     dispoff({No});
  496.     setcdir(cdir);
  497.     case(@filechk(TEMP2|{_moptxf.tmp}),
  498.         {No},
  499.         {
  500.         footnote({TXF.EXE がパスの通ったディレクトリに必要です});
  501.         wait(2);
  502.         },
  503.         {Yes},
  504.         {
  505.         %txf    @read(TEMP2|{_moptxf.tmp},1,1);
  506.         case(@getchar(txf,1,6)={Error:},
  507.             {Yes},
  508.             {
  509.             footnote({カーソルをタイトル行に置いてください});
  510.             wait(2);
  511.             },
  512.             {No},
  513.             {case(@head(txf,{datano=},{;dataname})!=0,
  514.                 {No},
  515.                 {
  516.                 footnote({コメントを作成します});
  517.                 OpenMemo;
  518.                 loop    ({
  519.                     footnote({終了取消清書},{b});waitx();
  520.                     case(@xtype,
  521.                         101,{savememo},201,{savememo},
  522.                         102,{cancel},202,{cancel},
  523.                         103,{rewrite},203,{rewrite},
  524.                         ,{im({Yes})});
  525.                     });
  526.                 im({Yes});
  527.                 },
  528.                 {Yes},{downDLIB});
  529.             });
  530.         });
  531.     im({Yes});
  532.     };
  533.  
  534. /*    ｱｯﾌﾟ用文書作成用ﾒﾓをｵｰﾌﾟﾝする    */
  535. %OpenMemo{
  536.     CloseAllMemo;mopen(memono,0,21,639,240,{w});mclose(1);
  537.     madd(memono+1,{\n});mclear(memono+1);mopen(memono+1,0,181,639,459,{w});
  538.     };
  539.  
  540. /*    ｱｯﾌﾟ文書作成をｷｬﾝｾﾙする    */
  541. %cancel    {
  542.     SNDMSG({kaknin_f.snd});footnote({作成中の文書を取消しますか？});
  543.     select({作成中の文書を取消しますか？},
  544.         Wtime4,{footnote({});im({Yes})},
  545.         {  は  い  },
  546.         {
  547.         CloseAllMemo;
  548.         dispoff(!DEBUG);
  549.         command({del }|TEMP2|{_mopmemo.bak});
  550.         dispoff({No});
  551.         mwrite(TEMP2|{_mopmemo.bak},memono+1);
  552.         mopen(memono,0,21,639,459,{w});
  553.         footnote({});
  554.         im({No});
  555.         },
  556.         {  いいえ  },{footnote({});im({Yes})}
  557.         );
  558.     };
  559.  
  560. /*    ｱｯﾌﾟ用文書を清書する    */
  561. %rewrite{
  562.     footnote({メモ}|memono+1|{を清書しています});
  563.     CloseAllMemo;
  564.     %cdir @getcdir;
  565.     setcdir(CDIR);
  566.     dispoff(!DEBUG);
  567.     command({del }|TEMP2|{_moptext.tmp});
  568.     command({del }|TEMP2|{_moptext.new});
  569.     mwrite(TEMP2|{_moptext.tmp},memono+1);
  570.     command({txf -f -i }|TEMP2|{_moptext.tmp -o }|TEMP2|{_moptext.new });
  571.     dispoff({No});
  572.     case(@filechk(TEMP2|{_moptext.new}),
  573.         {Yes},
  574.         {
  575.         mclear(memono+1);mread(TEMP2|{_moptext.new},memono+1);
  576.         mopen(memono,0,21,639,240,{w});mclose(1);
  577.         mopen(memono+1,0,181,639,459,{w});
  578.         },
  579.         {No},
  580.         {
  581.         display({清書機能には TXF.EXE がパスの通った}|
  582.             {ディレクトリに必要です\n});wait(2);
  583.         mopen(memono,0,21,639,240,{w});mclose(1);
  584.         mopen(memono+1,0,181,639,459,{w});
  585.         });
  586.     setcdir(cdir);im({Yes});
  587.     };
  588.  
  589. %savememo{
  590.     case(@head(txf,{=}),
  591.         {forum},{case(@tail(txf,{reply=},{;})={},
  592.                 {Yes},{sayMES},{No},{resMES})},
  593.         {patio},{case(@tail(txf,{reply=},{;})={},
  594.                 {Yes},{sayPATIO},{No},{resPATIO})},
  595.         {hp},{resHP},{mail},{resMAIL});
  596.     };
  597.  
  598. /* 会議室へのｺﾒﾝﾄ作成処理 */
  599. %resMES    {
  600.     %forum    @tail(txf,{forum=},{;});%mes    @tail(txf,{mes=},{;});
  601.     %reply    @tail(txf,{reply=},{;});%title    @tail(txf,{title=},{\n});
  602.     %resp    @tail(txf,{resp=},{;});
  603.     SNDMSG({nyuryo_f.snd});
  604.     %a    @plane(    {cフォーラムの会議室へのコメント\n}|
  605.             {tフォーラム名  /xxxxxxxx\n}|
  606.             {t会議室番号    /xx\n}|
  607.             {tコメント元番号/xxxxx\n}|
  608.             {tタイトル      /xxxxxxxxxxxxxxxxxxxx}|
  609.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  610.             {s              / 登録 / 取消 \n}|
  611.             {c\n}|
  612.             {tメール宛先    /xxxxxxxx\n}|
  613.             {s              / 登録 / 取消 \n},
  614.             forum,mes,reply,title,resp);
  615.     %forum    @head(@getline(a,1,1),{\n});
  616.     %mes    @head(@getline(a,2,1),{\n});
  617.     %reply    @head(@getline(a,3,1),{\n});
  618.     %title    @head(@getline(a,4,1),{\n});
  619.     %ok    @head(@getline(a,5,1),{\n});
  620.     %resp    @head(@getline(a,6,1),{\n});
  621.     %mail    @head(@getline(a,7,1),{\n});
  622.     case    (ok==1,{Yes},
  623.         {
  624.         footnote({会議室へのコメントを作成します});
  625.         %file1    @crefile(UP,{res});
  626.         case(@mcheck!=0,{Yes},{mclose(1)});
  627.         mwrite(UP2|file1,memono+1);
  628.         mopen(memono+1,0,181,639,459,{w});
  629.         %res1    {forum=}|forum|{;}|{mes=}|mes|{;}|{reply=}|reply|{;}|
  630.             {file=}|UP2|file1|{;}|{title=}|title|{\n};
  631.         write(UP2|{_mopres.ctl},res1);
  632.         case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  633.         mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  634.         im({No});
  635.         },
  636.         {No},
  637.         {
  638.         case(mail==1,{Yes},
  639.             {
  640.             footnote({発言者へのメールを作成します});
  641.             %file1    @crefile(UP,{res});
  642.             case(@mcheck!=0,{Yes},{mclose(1)});
  643.             mwrite(UP2|file1,memono+1);
  644.             mopen(memono+1,0,181,639,459,{w});
  645.             %res1    {mail=}|resp|{;}|{date=;}|
  646.                 {file=}|UP2|file1|{;}|{title=}|title|{\n};
  647.                 write(UP2|{_mopres.ctl},res1);
  648.             case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  649.             mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  650.             im({No});
  651.             },
  652.             {No},{im({Yes})}
  653.             );
  654.         });
  655.     };
  656.  
  657. /* 会議室への新規発言作成処理 */
  658. %sayMES    {
  659.     %forum    @tail(txf,{forum=},{;});%mes    @tail(txf,{mes=},{;});
  660.     %title    @tail(txf,{title=},{\n});
  661.     SNDMSG({nyuryo_f.snd});
  662.     %a    @plane(    {cフォーラムの会議室への新規発言\n}|
  663.             {tフォーラム名  /xxxxxxxx\n}|
  664.             {t会議室番号    /xx\n}|
  665.             {tタイトル      /xxxxxxxxxxxxxxxxxxxx}|
  666.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  667.             {s              / 登録 / 取消 \n},
  668.             forum,mes,title);
  669.     %forum    @head(@getline(a,1,1),{\n});
  670.     %mes    @head(@getline(a,2,1),{\n});
  671.     %title    @head(@getline(a,3,1),{\n});
  672.     %ok    @head(@getline(a,4,1),{\n});
  673.     case(ok==1,{Yes},
  674.         {
  675.         footnote({会議室への新規発言を作成します});
  676.         %file1    @crefile(UP,{res});
  677.         case(@mcheck!=0,{Yes},{mclose(1)});
  678.         mwrite(UP2|file1,memono+1);
  679.         mopen(memono+1,0,181,639,459,{w});
  680.         %res1    {forum=}|forum|{;}|{mes=}|mes|{;}|{reply=;}|
  681.             {file=}|UP2|file1|{;}|{title=}|title|{\n};
  682.         write(UP2|{_mopres.ctl},res1);
  683.         case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  684.         mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  685.         im({No});
  686.         },
  687.         {No},{im({Yes})}
  688.         );
  689.     };
  690.  
  691. /* ﾒｰﾙへの返信作成処理 */
  692. %resMAIL{
  693.     SNDMSG({nyuryo_f.snd});
  694.     %a    @plane(    {cメールの返信\n}|
  695.             {tメール宛先    /xxxxxxxx\n}|
  696.             {tタイトル      /xxxxxxxxxxxxxxxxxxxx}|
  697.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  698.             {s              / 登録 / 取消 \n},
  699.             @tail(txf,{mail=},{;}),@tail(txf,{title=},{\n})
  700.             );
  701.     %mail    @head(@getline(a,1,1),{\n});
  702.     %title    @head(@getline(a,2,1),{\n});
  703.     %ok    @head(@getline(a,3,1),{\n});
  704.     case(ok==1,{Yes},
  705.         {
  706.         footnote({メールの返信を作成します});
  707.         %file1    @crefile(UP,{res});
  708.         case(@mcheck!=0,{Yes},{mclose(1)});
  709.         mwrite(UP2|file1,memono+1);
  710.         mopen(memono+1,0,181,639,459,{w});
  711.         %res1    {mail=}|mail|{;}|{file=}|UP2|file1|{;}|
  712.             {date=;}|{title=}|title|{\n};
  713.         write(UP2|{_mopres.ctl},res1);
  714.         case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  715.         mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  716.         im({No});
  717.         },
  718.         {No},{im({Yes})}
  719.         );
  720.     };
  721.  
  722. /* ＨＰへの書き込み文書作成処理 */
  723. %resHP    {
  724.     %hpid    @tail(txf,{hp=},{;});%title    @tail(txf,{title=},{\n});
  725.     %resp    @tail(txf,{resp=},{;});
  726.     SNDMSG({nyuryo_f.snd});
  727.     %a    @plane(    {cＨＰへの新規発言\n}|
  728.             {tＨＰのＩＤ    /xxxxxxxx\n}|
  729.             {tパスワード    /xxxxxxxx\n}|
  730.             {tタイトル      /xxxxxxxxxxxxxxxxxxxx}|
  731.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  732.             {s              / 登録 / 取消 \n}|
  733.             {c\n}|
  734.             {tメール宛先    /xxxxxxxx\n}|
  735.             {s              / 登録 / 取消 \n},
  736.             hpid,@tail(NIFTY,{/}|hpid|{/},{/}),title,resp
  737.             );
  738.     %hpid    @head(@getline(a,1,1),{\n});
  739.     %pass    @head(@getline(a,2,1),{\n});
  740.     %title    @head(@getline(a,3,1),{\n});
  741.     %ok    @head(@getline(a,4,1),{\n});
  742.     %resp    @head(@getline(a,5,1),{\n});
  743.     %mail    @head(@getline(a,6,1),{\n});
  744.     case(ok==1,{Yes},
  745.         {
  746.         footnote({ＨＰへのアップ文書を作成します});
  747.         %file1    @crefile(UP,{res});
  748.         case(@mcheck!=0,{Yes},{mclose(1)});
  749.         mwrite(UP2|file1,memono+1);
  750.         mopen(memono+1,0,181,639,459,{w});
  751.         %res1    {hp=}|hpid|{;}|{pass=}|pass|{;}|
  752.             {file=}|UP2|file1|{;}|{title=}|title|{\n};
  753.         write(UP2|{_mopres.ctl},res1);
  754.         case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  755.         mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  756.         im({No});
  757.         },
  758.         {No},
  759.         {
  760.         case(mail==1,{Yes},
  761.             {
  762.             footnote({発言者へのメールを作成します});
  763.             %file1    @crefile(UP,{res});
  764.             case(@mcheck!=0,{Yes},{mclose(1)});
  765.             mwrite(UP2|file1,memono+1);
  766.             mopen(memono+1,0,181,639,459,{w});
  767.             %res1    {mail=}|resp|{;}|{date=;}|
  768.                 {file=}|UP2|file1|{;}|{title=}|title|{\n};
  769.             write(UP2|{_mopres.ctl},res1);
  770.             case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  771.             mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  772.             im({No});
  773.             },
  774.             {No},{im({Yes})}
  775.             );
  776.         });
  777.     };
  778.  
  779. /* PATIOへのｺﾒﾝﾄ文書作成処理 */
  780. %resPATIO{
  781.     %patioid@tail(txf,{patio=},{;});%title    @tail(txf,{title=},{\n});
  782.     %mes    @tail(txf,{mes=},{;});    %reply    @tail(txf,{reply=},{;});
  783.     %resp    @tail(txf,{resp=},{;});
  784.     SNDMSG({nyuryo_f.snd});
  785.     %a    @plane(    {cパティオへのコメント\n}|
  786.             {tパティオのＩＤ/xxxxxxxx\n}|
  787.             {tパスワード    /xxxxxxxx\n}|
  788.             {t会議室番号    /xx\n}|
  789.             {tコメント元番号/xxxxx\n}|
  790.             {tタイトル      /xxxxxxxxxxxxxxxxxxxx}|
  791.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  792.             {s              / 登録 / 取消 \n}|
  793.             {c\n}|
  794.             {tメール宛先    /xxxxxxxx\n}|
  795.             {s              / 登録 / 取消 \n},
  796.             patioid,@tail(NIFTY,{/}|patioid|{/},{/}),
  797.             mes,reply,title,resp);
  798.     %patioid@head(@getline(a,1,1),{\n});
  799.     %pass    @head(@getline(a,2,1),{\n});
  800.     %mes    @head(@getline(a,3,1),{\n});
  801.     %reply    @head(@getline(a,4,1),{\n});
  802.     %title    @head(@getline(a,5,1),{\n});
  803.     %ok    @head(@getline(a,6,1),{\n});
  804.     %resp    @head(@getline(a,7,1),{\n});
  805.     %mail    @head(@getline(a,8,1),{\n});
  806.     case(ok==1,{Yes},
  807.         {
  808.         footnote({パティオへのコメント文書を作成します});
  809.         %file1    @crefile(UP,{res});
  810.         case(@mcheck!=0,{Yes},{mclose(1)});
  811.         mwrite(UP2|file1,memono+1);
  812.         mopen(memono+1,0,181,639,459,{w});
  813.         %res1    {patio=}|patioid|{;}|{pass=}|pass|{;}|
  814.             {mes=}|mes|{;}|{reply=}|reply|{;}|
  815.             {file=}|UP2|file1|{;}|{title=}|title|{\n};
  816.         write(UP2|{_mopres.ctl},res1);
  817.         case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  818.         mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  819.         im({No});
  820.         },
  821.         {No},
  822.         {
  823.         case(mail==1,{Yes},
  824.             {
  825.             footnote({発言者へのメールを作成します});
  826.             %file1    @crefile(UP,{res});
  827.             case(@mcheck!=0,{Yes},{mclose(1)});
  828.             mwrite(UP2|file1,memono+1);
  829.             mopen(memono+1,0,181,639,459,{w});
  830.             %res1    {mail=}|resp|{;}|{date=;}|
  831.                 {file=}|UP2|file1|{;}|{title=}|title|{\n};
  832.             write(UP2|{_mopres.ctl},res1);
  833.             case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  834.             mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  835.             im({No});
  836.             },
  837.             {No},{im({Yes})});
  838.         });
  839.     };
  840.  
  841. /* PATIOへの新規発言文書作成処理 */
  842. %sayPATIO{
  843.     %patioid@tail(txf,{patio=},{;});%title    @tail(txf,{title=},{\n});
  844.     %mes    @tail(txf,{mes=},{;});
  845.     SNDMSG({nyuryo_f.snd});
  846.     %a    @plane(    {cパティオへの新規発言\n}|
  847.             {tパティオのＩＤ/xxxxxxxx\n}|
  848.             {tパスワード    /xxxxxxxx\n}|
  849.             {t会議室番号    /xx\n}|
  850.             {tタイトル      /xxxxxxxxxxxxxxxxxxxx}|
  851.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  852.             {s              / 登録 / 取消 \n},
  853.             patioid,@tail(NIFTY,{/}|patioid|{/},{/}),
  854.             mes,title);
  855.     %patioid@head(@getline(a,1,1),{\n});
  856.     %pass    @head(@getline(a,2,1),{\n});
  857.     %mes    @head(@getline(a,3,1),{\n});
  858.     %title    @head(@getline(a,4,1),{\n});
  859.     %ok    @head(@getline(a,5,1),{\n});
  860.     case(ok==1,{Yes},
  861.         {
  862.         footnote({パティオへの新規発言文書を作成します});
  863.         %file1    @crefile(UP,{res});
  864.         case(@mcheck!=0,{Yes},{mclose(1)});
  865.         mwrite(UP2|file1,memono+1);
  866.         mopen(memono+1,0,181,639,459,{w});
  867.         %res1    {patio=}|patioid|{;}|{pass=}|pass|{;}|
  868.             {mes=}|mes|{;}|{reply=;}|
  869.             {file=}|UP2|file1|{;}|{title=}|title|{\n};
  870.         write(UP2|{_mopres.ctl},res1);
  871.         case(@mcheck!=memono+1,{Yes},{mopen(memono+1)});
  872.         mclose(3);CloseAllMemo;mopen(memono,0,21,639,459,{w});
  873.         im({No});
  874.         },
  875.         {No},{im({Yes})}
  876.         );
  877.     };
  878.  
  879. /* DLIBからのﾀﾞｳﾝﾛｰﾄﾞ制御文作成処理 */
  880. %downDLIB{
  881.     var    DocFile    [64];
  882.     var    DataFile[64];
  883.     %forum    @tail(txf,{forum=},{;});%libno    @tail(txf,{libno=},{;});
  884.     %datano    @tail(txf,{datano=},{;});
  885.     DataFile:=LOG2|{FREESOFT\}|@tail(txf,{datafile=},{;});
  886.     DocFile    :=LOG2|{FREESOFT\}|@tail(txf,{docfile=},{;});
  887.     loop    ({
  888.         SNDMSG({nyuryo_f.snd});
  889.         %a    @plane(    {cライブラリからのダウンロード\n}|
  890.                 {t フォーラム名 /xxxxxxxx\n}|
  891.                 {tライブラリ番号/xx\n}|
  892.                 {t  データ番号  /xxxx\n}|
  893.                 {tデータファイル/\n}|
  894.                 {s              ファイル一覧 / 選択 \n}|
  895.                 {t 概要ファイル /\n}|
  896.                 {s              ファイル一覧 / 選択 \n}|
  897.                 {s              /  登録  /概要のみ/  取消  \n},
  898.                 forum,libno,datano,DataFile,DocFile);
  899.         %forum    @head(@getline(a,1,1),{\n});
  900.         %libno    @head(@getline(a,2,1),{\n});
  901.         %datano    @head(@getline(a,3,1),{\n});
  902.         DataFile:=@head(@getline(a,4,1),{\n});
  903.         %sel1    @head(@getline(a,5,1),{\n});
  904.         DocFile:=@head(@getline(a,6,1),{\n});
  905.         %sel2    @head(@getline(a,7,1),{\n});
  906.         %ok    @head(@getline(a,8,1),{\n});
  907.         case(sel1==1,{Yes},
  908.             {
  909.             footnote({});
  910.             DataFile:=@FILEsel1;
  911.             DocFile:=@body(DataFile,,{.})|{.ggg};
  912.             im({Yes});
  913.             });
  914.         case(sel2==1,{Yes},
  915.             {
  916.             footnote({});
  917.             DocFile:=@FILEsel1;
  918.             im({Yes});
  919.             });
  920.         case(ok,{ 1},
  921.             {
  922.             case((DataFile={}||@getchar(DataFile,2,2)={:\})&&
  923.                  @getchar(DocFile,2,2)={:\},
  924.                 {No},{footnote({ファイル名はドライブ名からの}|
  925.                     {パスで指定してください});
  926.                     wait(2);im({Yes})},
  927.                 {Yes},
  928.                 {case(@filechk(DataFile)||DataFile=DocFile,
  929.                     {Yes},{footnote({データファイル名が}|
  930.                         {重複しています});
  931.                         wait(2);im({Yes})},
  932.                     {No},{write(UP2|{_mopdlib.ctl},
  933.                         {forum=}|forum|{;}|
  934.                         {libno=}|libno|{;}|
  935.                         {datano=}|datano|{;}|
  936.                         {docfile=}|DocFile|{;}|
  937.                         {datafile=}|DataFile|{;\n});
  938.                          case(@mcheck!=memono,
  939.                             {Yes},{mopen(memono)});
  940.                          im({No})});
  941.                 });
  942.             },
  943.             { 2},
  944.             {case(@getchar(DocFile,2,2)={:\},
  945.                 {No},{footnote({ファイル名はドライブ名からの}|
  946.                     {パスで指定してください});
  947.                     wait(2);im({Yes})},
  948.                 {Yes},
  949.                 {write(UP2|{_mopdlib.ctl},
  950.                     {forum=}|forum|{;}|{libno=}|libno|{;}|
  951.                     {datano=}|datano|{;}|
  952.                     {docfile=}|DocFile|{;}|{datafile=;\n});
  953.                  case(@mcheck!=memono,{Yes},{mopen(memono)});
  954.                  im({No});
  955.                 })},
  956.             { 3},{im({No})},
  957.             ,
  958.             {case(sel1={ 0}&&sel2={ 0}&&ok={ 0},{Yes},{im({No})})}
  959.             );
  960.         });
  961.     im({Yes});
  962.     };
  963.  
  964. /*    ﾀﾞｳﾝﾛｰﾄﾞﾌｧｲﾙ指定処理    */
  965. %FILEsel1{
  966.     var    dnfile    [64];
  967.     SNDMSG({erande_f.snd});
  968.     dnfile:=@filesel;
  969.     case(dnfile,{},{im({})},
  970.         ,{case(@nochar(@getcdir)=3,
  971.             {Yes},{dnfile:=@getcdir|dnfile},
  972.             {No},{dnfile:=@getcdir|{\}|dnfile})});
  973.     im(dnfile);
  974.     };
  975.  
  976. /* NAPLPSﾌｧｲﾙ表示処理 */
  977. %ViewNAP{
  978.     [file,memono]
  979.     CloseAllMemo;naplps(file);
  980.     footnote({終了},{b});
  981.     loop    ({
  982.         waitx();
  983.         case(@xtype,
  984.             101,{napend;CloseAllMemo;footnote({});
  985.                 mopen(memono,0,21,639,459,{w});im({No})},
  986.             201,{napend;CloseAllMemo;footnote({});
  987.                 mopen(memono,0,21,639,459,{w});im({No})},
  988.             ,{im({Yes})});
  989.         });
  990.     im({Yes});
  991.     };
  992.  
  993. %SETDIR    {
  994.     footnote({参照するログファイルのディレクトリを指定してください});
  995.     SNDMSG({erande_f.snd});
  996.     select({参照するログディレクトリは？},
  997.         Wtime4,{im(LOG)},LOG,{im(LOG)},
  998.         {一時的に指定},
  999.         {footnote({指定するﾃﾞｨﾚｸﾄﾘへ移動して右ｸﾘｯｸしてしてください});
  1000.          SNDMSG({erande_f.snd});filesel;im(@getcdir)});
  1001.     };
  1002.  
  1003. /* 受信ログ参照処理メイン */
  1004. var    fn    [8];
  1005. var    l1    [82];
  1006. var    l2    [82];
  1007. var    DOCFILE    [64];
  1008. var    DATAFILE[64];
  1009. var    LOGFILE    [64];
  1010.  
  1011. footnote({受信ログを参照します});
  1012. %memono    @mlast+1;
  1013. case(memono>5,{No},{ViewLOG(@SETDIR,memono)},
  1014.     {Yes},{SNDMSG({kaknin_f.snd});
  1015.         select({メモ5-9の内容が消去されます  よろしいですか？},
  1016.             Wtime4,,{ は　い },{ViewLOG(@SETDIR,5)},{ いいえ },)});
  1017.